home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 102 / 102.d81 / high basic (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  82 lines
  1. 10 ifpeek(44)<>192then60000
  2. 20 poke56,207:poke55,252:clr:dv=peek(186):ifdv<8thendv=8
  3. 25 poke53280,0:poke53281,0:poke53246,peek(45):poke43247,peek(46)
  4. 30 dimp$(12),f$(12):tt$="[210]eplace [212]his [215]ith [217]our [212]itle"
  5. 40 print"[147][146][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]";:
  6. 50 fori=1to3:print"[158]                                        ";:next
  7. 60 print"[146][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]";:gosub2500
  8. 70 poke211,0:poke214,22:sys58732
  9. 80 print"[146][153][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]";:
  10. 90 print"[159]                                        ";
  11. 100 print"[146][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]";
  12. 110 poke2023,peek(2022):poke56295,peek(56294):gosub2500
  13. 120 print"[158]"spc(20-len(tt$)/2)tt$
  14. 130 poke211,10:poke214,23:sys58732:print"[159][195][210][211][210]/[210][197][212][213][210][206] [212]o [211]elect
  15. 140 [153]"":[129]i[178]1[164]17
  16. 150 [153]"contspc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(":[130]
  17. 160 [153]"":[129]i[178]1[164]14
  18. 170 [153]"spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(":[130]
  19. 180 [153]"":[129]i[178]1[164]14
  20. 190 [153]"open                               ":[130]
  21. 200 p$(1)[178]" lenonvert (NULL)ears (NULL)o (NULL)econds    "
  22. 210 p$(2)[178]" lenonvert (NULL)iles (NULL)o (NULL)icrons    "
  23. 220 p$(3)[178]" valmpty                       "
  24. 230 p$(4)[178]" valmpty                       "
  25. 240 p$(5)[178]" valmpty                       "
  26. 250 p$(6)[178]" valmpty                       "
  27. 260 p$(7)[178]" valmpty                       "
  28. 270 p$(8)[178]" valmpty                       "
  29. 280 p$(9)[178]" valmpty                       "
  30. 290 p$(10)[178]" valmpty                       "
  31. 300 p$(11)[178]" valmpty                       "
  32. 310 p$(12)[178]" valmpty                       "
  33. 320 f$(1)[178]"year sec"
  34. 330 f$(2)[178]"mile mic
  35. 340 f$(3)=""
  36. 350 f$(4)=""
  37. 360 f$(5)=""
  38. 370 f$(6)=""
  39. 380 f$(7)=""
  40. 390 f$(8)=""
  41. 400 f$(9)=""
  42. 410 f$(10)=""
  43. 420 f$(11)=""
  44. 430 f$(12)=""
  45. 500 print"":fori=1to12:print"[159]"p$(i):next:it=1:ot=1:gosub800
  46. 510 geta$:ifa$<>""anda$<>"[145]"anda$<>chr$(13)anda$<>"q"then510
  47. 515 ifa$="q"then40000
  48. 520 ot=it:ifa$=""thenit=it+1:ifit>12thenit=1
  49. 530 ifa$="[145]"thenit=it-1:ifit<1thenit=12
  50. 540 ifa$<>chr$(13)thengosub800:goto510
  51. 550 iff$(it)=""thenit=1:gosub800:goto510
  52. 560 goto50000
  53. 800 poke214,ot+6:poke211,6:sys58732:print"[159]"p$(ot)
  54. 810 poke214,it+6:poke211,6:sys58732:wait53265,128,128:print"[146][153]"p$(it):return
  55. 2499 stop
  56. 2500 fori=217to242:pokei,peek(i)or128:next:return
  57. 10000 close15:open15,8,15,"s:high basic":close15:save"high basic",8:stop
  58. 40000 a$="hello connect":fori=8to9:close2:open2,i,2:close2:ifstthen40020
  59. 40010 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then40030
  60. 40020 next:print"[147]":poke186,8:end
  61. 40030 q$=chr$(34):poke646,peek(53281):print"[147]"
  62. 40040 print"[147]p[207]2048,0:p[207]44,8:p[207]43,1:p[207]56,160:p[207]55,0:p[207]46,8:clr:l[207]"q$a$q$","i
  63. 40050 print"run:":poke631,13:poke632,13:poke198,2:end
  64. 50000 a$=f$(it):fori=8to10:close2:open2,i,2:close2:ifstthen50020
  65. 50005 close15:poke787,119
  66. 50010 open15,i,15,"r0:"+a$+"="+a$:input#15,e,e$:close15:ife=63then50030
  67. 50015 rem open15,i,15,"r"+a$+"="+a$:input#15,e,e$:close15:ife=63then50030
  68. 50020 next:poke214,23:poke211,0:sys58732:
  69. 50023 a$="[195]ouldn't find "+f$(it)+"!"
  70. 50025 print"[159]                                        [145]";spc(20-len(a$)/2)a$;
  71. 50026 poke198,0:wait198,15:geta$:run
  72. 50030 q$=chr$(34):poke646,peek(53281):print"[147]"
  73. 50040 print"[147]p[207]2048,0:p[207]44,8:p[207]43,1:clr:l[207]"q$a$q$","i
  74. 50050 print"run:":poke631,13:poke632,13:poke198,2:end
  75. 59999 stop
  76. 60000 a$="high basic":fori=8to9:close2:open2,i,2:close2:ifstthen60020
  77. 60010 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then60030
  78. 60020 next:print"[147]":poke186,8:end
  79. 60030 q$=chr$(34):poke646,peek(53281):print"[147]"
  80. 60040 print"[147]p[207]49152,0:p[207]44,192:p[207]43,1:p[207]56,207:p[207]55,252:clr:l[207]"q$a$q$","i
  81. 60050 print"run:":poke631,13:poke632,13:poke198,2:end
  82.